home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Welcome Options 3.xpl < prev    next >
Text File  |  2004-02-21  |  2KB  |  58 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\System\Message Windows"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\60) Windows Launch"
  6. "UIPATH 3"="Appearance\Taskbar"
  7. "NAME"="Start button Pop-Up"
  8. "VERSION"="1.03"
  9. "LANGUAGE"="VBScript"
  10. "OSVERSION"="0001011"
  11. "TEXT 1"="Show pop-up for Start button"
  12. "TEXT 2"="Show pop-up for Start button (new users)"
  13. "DESCRIPTION 1"="When you move your mouse pointer over the Start button, Windows will display a tool-tip "Click here to begin". Also, when you first logon to Windows it displays a huge "Click here to begin" text and points to the Start button in the lower left corner.
  14. "DESCRIPTION 2"="If you do not want these tool-tips to appear, simply deactivate this option. "
  15. "DESCRIPTION 3"="The second option can be used to disable or enable this feature for any new user that logs into this machine."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com/"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="Thanks to Quitch for the idea!"
  20.  
  21. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartBanner"
  22. sV2="HKUS\.Default\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartBanner"
  23.  
  24. Sub Plugin_Initialize 
  25.  i=RegReadValue(sV1)
  26.  if i<>1 then SetUIElement 1,true
  27.  
  28.  i=RegReadValue(sV2)
  29.  if i<>1 then SetUIElement 2,true
  30. End Sub
  31.  
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  b=GetUIElement(1)
  35.  if b=true then
  36.     if RegValueExists(sV1) then Call RegDeleteValue(sV1)
  37.  else
  38.     Call RegWriteValue(sV1,1,2)
  39.  end if
  40.  
  41.  b=GetUIElement(2)
  42.  if b=true then
  43.     if RegValueExists(sV2) then Call RegDeleteValue(sV2)
  44.  else
  45.     Call RegWriteValue(sV2,1,2)
  46.  end if
  47.  
  48.  
  49.  Call Logoff()
  50. End Sub
  51.  
  52.  
  53. Sub Plugin_Terminate 
  54. End Sub
  55.  
  56.  
  57.  
  58.